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"Adventure 

by Lance Micklus 



Adventure programs are 
computer equivalents to 
novels, and as with novels, 
we can't tell you the ending .., BUT ,.. you see, 
there's this princess, and a pile of gold, and a 
freedom fighting force, and watch out for the 
guards and your tanks are empty and 

Very Well Done 





Level H, 16K 

Price, $9.95 ^ 
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SoftSide magazine is continually seeking original articles and 
software for publication. Imagination and variety in concept and 
content are the rules at SoftSide — not the exceptions. Articles are 
purchased on a per-page basis, based on content and applicability. Our 
policies with respect to software purchase are highly individualized, 
and offer the programmer several options, including one-time 
publication rights, outright purchase, and royalties on sale of 
pre-recorded cassettes. For more information, please write: SoftSide, 
PO Box 68, Milford, NH 03055. 

For uniformity, we have adopted the Radio Shack TRS-80 Level 11 
BASIC as the BASIC dialect used within the pages of this magazine. It 
was chosen because it stands to become the most commonly used 
dialect among microcomputer users and because it shares a common 
heritage with the many microcomputer languages produced by 
Microsoft. 
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contents copvrighl 1 '■Pi) SoftSide 
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OutgoingMail 

People often ask for my opinion of tlie Radio Shacl< 
computer. Most likely whenever someone parts with nearly a 
month's salary for something, they expect perfection, and I'm 
probably as guilty of that as anyone. I'm greatly troubled by the 
lack of lower case, the double letter problem and the lack of 
reliability in tape and diskette input/output routines. I would 
like to see better graphics, preferably in color. It looks like 
highway robbery when Radio Shack offers memory chips for 
$200 while others are selling them for a mere $75. 

Despite all this, I feel the TRS-80 is a bargain. These days, 
you could spend $600 for a college course in BASIC 
programming and not learn as much as you can with your own 
TRS-80 (and the college doesn't give you a computer). The 
challenge of designing a program to conform to a particular 
application, or writing a game from your own imagination, is 
more fun for me than any other hobby I ' ve had — and I have had 
quite a few. It's also the most profitable hobby I've ever had, 
because it's easy to sell decent programs. 

I'm delighted by the service I have received, especially the 
high quality customer support that my local store manager. 
Carle Smith, has provided from the time I ordered my original 
4K Level I TRS-80. Repairs have been prompt and the policy of 
renewing the warranty period for an additional 30 days 
whenever a computer is serviced or a new part is installed is 
fantastic. 

The Shack is certainly imaginative and creative in 
marketing and salesmanship. By the time you read this, their 
store managers will have contacted nearly every school in the 
country to explain how to obtain computers complete with 
courses in BASIC programming and algebra, with the Federal 
government footing the bill. They even provide the exact 
wording for the funding applications. It wouldn't surprise me to 
see the schools purchase a million TRS-80 computers! So, that 
means our readers will have to contact every high school student 
in the country to tell them about SoftSide, the best magazine for 
TRS-80 computerists! 

The computer is even useful in some serious business 
applications. Not far from my home there's an analytical 



laboratory that uses a TRS-80 computer to analyze coal samples ^ 
from the mines. It does so much work that they have to buy 
ribbons for their printer by the case. As I was working my way 
through college, I once spent two weeks performing a matrix 
multiplicaton on a Friden mechanical calculator. When I think of 
that time ten years ago, I'm horrified that I endured that agony 
when a TRS-80 would have done the problem in seconds. (Of 
course, It would have taken me an hour to enter the matrix, but I 
wouldn't have had to enter each figure over fifty times!) 

The one flaw in TRS-80 applications is In commercial use. 
Decent business software isn't available yet, although BIZ-80 
will help to solve that problem. The lack of lower case is a major 
stumbling block, as word processing is one of the most 
important business uses for small computers. Potentially even 
more serious is the lack of disk reliability, especially since a 
common disk failure can irretrievably wipe out the data in 
memory. I have been personally recommending the TRS-80 for 
educational and scientific applications, games, and to 
programmers in BASIC and FORTRAN and people who want to 
make money writing programs at home. I haven't been 
recommending it for commercial use. Frankly, I hope that will 
change, and I would like to hear from any business users who 
can report solid success. 

Our publisher and myself have been having a running 
discussion over the merits of sound in TRS-80 applications, 
especially now that Radio Shack has decided to support Its 
$10.96 200 mW audio amplifier with computer programs. You 
simply connect the amp by plugging it into the cassette output 
jack — for just under $11 .00 you've added a decent sound unit. 
I've already seen several good programs using the device. If you 
want programs with sound, let us know! (Isn 't it unfair to ask 
your readers to argue with the boss? I suppose I'll have to 
tolerate a few letters from those of you who aren't interested in 
cheap sound, just to keep him happy.) 

That's enough of a break to read the mail. Now, get back to 
the keyboard and start ENTERING Safari. I had so much fun 
playing it that you almost didn't get this editorial. Of course, you 
cassette subscribers are probably playing It already. We can still 
send the cassette version of SoftSide if keyboard time Is precious 
to you. The price for subscribers is $30 for six months. To start a 
combination magazine plus cassette subscription (6 months), is 
only $38. 

Don't let the headhunters get you! ^— v— >r-^r-^M— n ) 
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DISKETTES 

VERBATIM 

Price, $24.95 ^ SI .00 postage 

Add $5 for hard plastic 8wr»K 

CASSETTES 

.Premium Quality ^S-Screw Casings 

C-IO Box of 10 

$6.50 + SI. 00 postage 



C.20 Boxot 10 

$7.50 + $1.00 postage 



This activity certain to promote high levels 

of reliability in tape and disk use, duplication 

and information storage. Take immediate 

action — purchase all available stocks — curtail 

further influx of certified media throughout 

the microcomputer industry. 






No, it's not a game, but it CAN -^ LOAn 

make renumbering your programs^ 0'*H?4 rlc"*''^ -^No 

seem like child's play ! o«K ORrJi'l ^'thel 





If vou find yourself renumbering t^ 

provide room for additional lines, 6r \i 

neater, this program has got what it takes to make life ^ 

easier .it can renumber a 12K program in just 32 

seconds. ^^_ MM 

User has complete Tonfrol over which TThes are 
renumbered — and how — including all GOTO s and 
GOSUB's. You can even renumber the middle and leave 
the beginning and end alone! If an undefined line is 
found, the program will display both the line which 
caused the error and the unfound line nunriber, there by 
making corrections much simpler. JUt JUl ^^ 

You may have seen other renumbering programs^ but 
NONE With this many features: no external tables are 
used, runs in 1300 bytes of high memory regardless of 
program size, loads from and operates on either disk- or 

tape- based programs. M^ ^0^ ^ 

Versions available for 4K, 1bF^2K an^8K machines 
(Unless specified otherwise, IbK tape automatically 
sup plied ) Also available on disk or as source listing , 

(^ Level II tape IsfXHifv version) - $1S1H> ^ 

Diskette (all 4 versions on ont* disk) — $2S IK> 
Source Listing - 1»J(> (H» 

Tf £ TRI-60 lofluiore CKchciAQc 

*^^ iraillARCLiMOIItVE MIIFORD NEW HAMPSMIRt 03«f 




PERSONA! 

*'.. . by Lance 

PlartTwo-Cti 



Chaefcflnder is the second part of 
the Personal Finance program. It 
maintains a file of all your 
cancelled checks by using the data 
from the first part of the program. 
Checkbook, on the CANCELLED 
CHECKS TAPE. Several tapes 
may be read into memory at the 
same time to create a combined file 
m memory. This combined file may 
then be saved on tape at the end of 
the program. By combining the 
latest batch of cancelled checks 
with previous ones saved on checks 
m memory, you can build a 
CHECK FILE of all your cancelled 
checks. Up to 900 checks can be 
filed on a 16K machine. Please 



note that tapes created by this 
portion of the program are written 
in a different format than the 
CANCELLED CHECKS TAPE. 
The difference is that CHECK 
FILE tapes use a blocking factor of 
8 to speed up the reading and 
writing of the tape file to and from 
memory. 



Besides merging the tape files, 
Check! inder performs two other 
operations: it contains a modified 
bubble sort to rearrange the order 
of the checks in memory, plus it 
locates a check or group of checks. 
When locating checks, it will print 
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HNANCE 

^icklus 

ECKFINDER 



a total of the amount of all the 
checks it finds. A negative amount 
means expense, and a positive 
amount means income, since some 
of your account should be for 
deposits. You can even have the 
program locate all your paychecks 
— hopefully, the amount will be 
positive, indicating income. If not, 
you should probably seek new 
employment. 



By keeping a CHECK FILE tape 
for the entire year, you can use the 
program to locate all your alinrK)ny 
payments (or any other category) 



and get the total amount paid for 
the year to file in your Income tax. 



Good procedures dictate that you 
test this program very carefully, 
then run it in parallel with your 
current system of checkbook main- 
tenance. We can assume no 
responsibility for consequences 
resulting from the use of this 
program. I have used the complete 
Personal Finance program) both 
Checkbook and Checkfinder to 
maintain my own personal account 
for several months and have found 
it to be reliable and valuable in 
managing my family's money. 



10 REM ; CHECK FINDER BV LflTCE HICKLUS, WIfJOOSKL \€Rf10NT 

28 REM : COPVRIGHT 1978 

30 REM : TRS-80 16K f LEVEL II \€RSION 2. 1 

4£i REM : . 

50 REM 

100 CLE«? 20 

120 DIM fl(2500) 

148 DEFINT F-Z 

160 CLS 

180 PRINT ;PRINTTflB(22) "CHECK FINDER" 

200 PRINTTflB(21)" " 

220 PRINT :PRINT"THIS PROGRAM WILL LOCATE VOUR Cffl^CELLED CJ€CKS. 

IT WILL" 

240 PRINT"ALSO SORT VOUR CHECKS m> LET VOU BUILD A SINGLE PERMI 

mTE" 

260 PRINT"FILE OF CAfCELLED CJCCKS. " 

280 PRINT ;PRINT"THE PROGRAM USES THE CANCELLED CHECKS TAFtCS) FR 

OM THE" 

200 PRINT"CHEC4( BALANCE PROGRAM, AND/OR CHECK FILE TAF'E<S)" 

320 PRINT"GENERATED BV THIS PROGRAM FROM PREVIOUS RUNS. " 

340 PRINT :PRINT"LOAD TAPE AN[> WHEN READV TO :READ:" 

360 PRINT"OR TVPE %' IF NO CHECK FILE TAF'E. » 

380 INPUT"TVPE THE CASSETTE # <1 OR 2) OR ©"/TAPE 

480 IF TAPE=8 THEN 700 

420 IF TAPEOl AND TAPE02 THEN 380 

440 aS:PRINTCI«$(23):PRINTTAB(9)""j :PRINTUSIN6 ":RERDING##.",TA 

PE 

460 REM »:>READ Tl¥E«< 

480 II#>LIT#-TAPE.N 

500 FiDR I=PT TO PT+N-3 STEP 24 

520 GCeUB 9320 

540 INPUT#-TAPLA(I),A(I+1),A(I+2),A(I+3),A<I+4),A(1+5),A(I+6>,A 

(1+7), A<I+8), A<I+9), A(I+10), A<:i+ll), A<I+12), A(I+13), A<I+14), fi<I+ 

15),A(I+16),A(I+17),A(I+18),A<I+19),A<I+20),A(I+21),A(I+22),A(I+ 

23) 

568 NEKT I 

5£!0 GOSLIB 3320;imtT#-TAPE,B*;IF B$O"E0F" PRINT iPRINT'EflC- FILE 

DATA": STOP 

600 PT=PT+N 

620 CLS:PRINTlS973/'NL8'1BER OF CHECKS IN MEMC^V"; PT/3; 
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640 PRINT&i28, " ," 

668 INPUT"flNV!iORE TAPES"; fit; IFLEFT$<ftl.. l.:'0"V"fiNDLEFT*(ft$, i)0"N 

"THEN 660 

660 IF LEFT$(fl$vl)="V" THEN 240 

700 CIS 

720 PRINTiJ ;;20/'TO LOAD ffiV CANCELLED CHECKS TAPES FROM THE CHEC 

K" 

740 PRINT"BfiLANCE PROijRAH.. TVPE THE CASSETTE # TO :READ:. ELSE T 

WE -e' 

760 PRINT 

788 INPUT"TVPE CASSETTE # (1 m 2) OR TYPE 0";TfiF-E 

800 IF TAPE=0 THEN 986 

820 CLS:PR1NT CHR$(23): PRINT? 348, ":READING"iSTR$(TAPE); ":" 

840 QOSUE! 3328 : INPllT#-TAF-Lft(PT), A(PT+i),A<PT+2) 

860 IF A<PT)<>9999 LET PT=PT+3 ; IjOTO 848 

880 as : PRINT!? 973, ''NlitlBER OF CHECKS 'IN tCMORV: "; PT/3 

300 PRINT? 320,""; 

920 INPUT"f»ft' MORE CANCELLED CHECKS TAPES <V/N)";A$ 

940 IF LEFT$(fl$,l)="V" THEN 760 

360 RBI *** MAIN P R Q R A II *** 

980 as 

1000F-RINT@328,""; 
1820 PRINTTAE!<2"0)"0 TO END PROGRAM" 
1040 PRINTTAB(20)"1 TO SORT TRANSACTIONS" 
1068 PRINTTAB<20)"2 TO FIND CHECKS" 
1^0 PRINT :PRINTTAB<19)" "; 
1108 INPLIT"ENTER 8, 1, OR 2"; J 
1120 IF J<>8 m) JOl AND J02 THEN 1080 
1140 ON J+1 GOTO 1160, 14£i0, 1688 
1160 CLS 

1180' PR:1NT§S20, "DO VOLI WISH TO SAVE THE CURRENT CAfK:ELLED CHE^S 
FILE":PRINT"IN l€Ma?V"; 
1280 INPUT A*; IFLEFT$(A*, 1)0"¥"AN[)LEFT$(A$, 1)0"N"THEN1166 
1228 IF LEFT$<A*,1)="N" THEN 1420 

1248 Ifff'UT"T'r'PE CASSETTE # (1 OR 2> NHEN READV TO *WRITE*"; TAPE 
1268 IF TAF-EOl fflSf TAPE02 THEN 1248 

1280 CLS: PRINTCHR$<23):PRINTTAB<9)" "; :PRINTUSING"*WRITIhfij#l*";T 
PPEy. 

1388 PRINT#-TflPE, PT 
1328 FO? N=8 TO PT-3 STEP 24 
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1340 GOSie 9320 

1360 PRINT#-TfrE, fl<N).. fl(N+i>, fl<N+2), fl(N+3), ft(N+4), fl(N+5), fl(N+6), 

fl(N+7). fl(N+8), fl<N+9), fl(N+i0), fl(N+ll), fl<N+i2), fl<N+13). fl(N+14), fl(N 

+15), fi<N+16), fi<N+17), fl(N+18), fl(N+19), fl(N+20), fi(N+21), fl<N+22), ft<N 

+23) 

1380 NEXT N 

1400 i^UB 9320: PRINT#-TflPE, "EOF" 

1420 CLS 

1440 PRINT@4?1, "END OF SESSION" 

1460 END 

1480 CLS 

1500 PRINT0330/'0 = SORT BV TRflNSfiCTION NUHBER" 

1520 PRINTTftB<10)"l = SORT BV flIIOLINT" 

1540 PRINTTa8(10)"2 = SORT BV ACCOUNT NUMBER" 

1560 PRINT :PRINTTflB(9)" "i 

1580 INF-UT"HiDW SHALL FILE BE SORTED"; Q 

1600 IF QO0 m> QOl mD Q02 THEN 980 

1620 CLS 

1640 PRINT047L "» SORTING «" 

1660 GOTO 2360 

1680 CLS 

1780 PRINT0320, ""j 

1720 PRINT"SEPflRflTE EACH VALUE WITH COMMAS" 

1740 INPUr"LOW S HIGH RANGE OF TRA^^SAC;TION NUMBERS"; B,C 

1760 IF B>C PRINT"LOM VALUE GREATER THAN HIGH ???" : GOTO 1740 

1780 INPUT'LOJ * HIGH m¥£ OF DdLAR AMOUNTS"; D, E 

18^ IF D>E PRINT"LOW VALLC GREATER THftf^ HIGH ???" ; GOTO 1780 

1820 GOSUB 9020 

1840 PRINT : INPUT"ENTER LOW ^ HIGH BUDGET fftlMBER"; F, G 

I860 IF F>G m F<0 OR G>32 OR INT(F)OF OR INT<G)<>G TfCN 1840 

1^0 M# = 

1900 CLS : H = 

1920 PRINT"TRANSACTION «", " AMOLINT", "BUDGET", "TVPE" 

1940 FOR N=0 TO PT-3 STEP 3 

I960 IF A(N)<B OR A(N)>C THEN 2240 

1980 IF ABS(A<N+1))<D OR ABS<A<N+1)»E THEN 2240 

2m IF A<N+2)<F OR A(N+2)>G THEN 2240 

^20 Z=A(N+2): GOSUB 9240 

2040 B$="DEPOSIT" 

2060 IF A<N+1) <=0 THEN B$="CHECK" 
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2880 PRINTTflB(2) fl<N), ;PRINTUSIN6"$»ii,###. ##";flK<fl<N+i», :PRIN 

TTfie(32>fl$,B$ 

2180 H# = M# + fi(N+l) 

2120 H = H + 1 

2140 IF H < 12 THEN 2248 

2160 PRINT: INPUT"TVPE 1 TO C0NTir4UE, OR 2 TO QUIT"; J 

2188 IF J = 2 THEN 988 

228e CLf.:PRINT"TR»eflCTI(»l #". " mOUNT". "BUCXST", "TVPE" 

2228 H = 8 

2240 NEXT N 

2260 PRINTTflB(16)"-- »:PRINT"TOTflL". 

2280 PRINTUSIMj"!***. ##«. ##"; M#. :PRINTTf«(48)"CREDIT/DEBIT" 

2208 INPUT"END OF LISTING. HIT "ENTER" KEV TO CONTINUE"; B$ 

2320 GOTO 988 

2240 REM *** S R T *** 

2260K = 1; SI4 = 8 

23^ X = 8 : V = PT - 6 : Z = 2 

2488 P = 8 

2428 FOR N = X TO V STEP Z 

2448 IF flBS<fl(N+3+8)) < flBS(fl<N+Q» LET fl<PT)=fl(N).fl(N>=fl(N+3).fi 

(N+3>=fl<PT):fl(PT)=fl(N+l):fl(N+l)=fl<N+4):fl<N+4>=fl<PT):fl(PT)=R(N+2) 

:fl(N+2>=fl(N+5) :ft<N+5>=fl<PT) :P=P+1 

2460 NEXT N 

24^ N = X:X = V:V = N;Z = -Z:SW = SW + P 

2580 PRINT@0, "PASSES COMPLETED: "; K, "SWflPS THIS PflSS:";P 

2520 PRINT"RECORD COUNT : "; PT/2. "TOTFl NUT^R OF SWAPS : ''.: SW 

2540 IF P <> THEN K = K + 1 : GOTO 2400 

2560 PRINTTflB(22)"S0RT COMPLETE" 

2588 GOTO 1808 

3000 REM *** BUDGET NUMBER LIST ROUTINE *** 

9020 RESTORE 

^48 CLS 

9060 Z = 

9080 FORV=0TO22 

9108 PRINT0Z.V.; :REflDfl$:PRINTiZ+i"-";fl*i 

9128 Z=Z+64:IFZ=704THENZ=21 

9140 IFZ=725TI€rG=42 

9168 NEXT V 

9180 PRIHTLa?04.""i 

9200 RETURN 
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9220 REM •*** GET M'lilT STRIfffi NAME *** 

9248 IFZ<0ORZ;>i:2ORIHT(2)OZLETZ=:<2 

3268 REST»:E 

3280 FORV=0TOZ ; REflDfl* : fCXTV ; RETUR}< 

3300 REM *** BLIM<ING STRR *** 

3320 IF PEEK(15360)=32 THEN POKE 15368.. 42 ELSE POKE 15368, 32 

9340 RETLIRN 

3336 REM *** BIC'GET NfiMES *** 

IgeeS DfiTfi CHILD CARE, TONV MISC. .. MR.JOR Vm, ITEM 3 

18004 DflTfl ITEM 4.. HOBBIES, HOUSEHOLD, GROCERIES 

18808 DflTfi ENTERTAINMENT, MISC. EXPENSES, CASH, UTILITIES 

10012 DfiTfi MONTHLV EXP. , REV. CHARGE, ITEM 14, ITEM 15 

10016 DfiTfi RENT, ITEM 17, ftUTO CPERflTE, flUTO REPAIR 

10828 CflTfl MAJOR BILLS, INSLIRftTCE, T. D. INSURANCE, SALES TfiX 

10024 DATA TAXES, DRUGS, DOCTOR, DENTIST 

10028 [)ATA ITEM 28, CWK ] " SfiVINGS, SflLfiRlV, MISC. [€POSITES 

10032 [iflTA Ctt; ] ^ CASH 



SURPRISE II 

Put an EXTRA TREAT 
in your Easter Basket! 

3-D Tic Tac Toe 
(reg;$7.95 value) / ^ 

NOW ONLY $4.95 \ 

Level I 

or 
]|,16K 




^s>"r::% 




7iJ Offer expires May 1, 1979 
14 
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910 L=V:GOSUB50:L=R:QOSUB60 

320 PRINTC-409, "DON'T IT HAKE MV BROWN EV 

ES BLLE. . ."i:PRINTC*83Li 

930 L=W : QOSUBlie : L=V : GOSUBiiB : L=W : G0SUB5 

0:L=V:QOSUB58 

940 L=V : GOSLIB110 : L=R ; GOSUBlla : L=U : GOSiei 

i0:GOSUB110:QOSUBi20 

950 L=Y:6OSUBil0 



TRI-80 

PRoaRAfflfflina hi at/ 

To simulate in INPUT statement with INKEY$, after printing a 
question (using the question mark), print a prompt. The method 
is to print CHR$(95) for the prompt and then a backspace to 
erase it CHR$(8), followed by a space. A sample program would 
look like this: 

10 PRINT* 'WOULD YOU LIKE TO PLAY A GAME (Y/N) ?"; 

CHR$(95) 
20 1$^ INKEY$: IF I$- ** '' THEN 20 ELSE PRINT CHR$(8); 

30 IF 1$ = * T' * THEN 100 ELSE END 



If you want your remark statements to stand out and be easy to 
find, type a line feed (lower case down arrow) and 5 spaces right 
after the line number. You could even follow your first remark 
with another line feed and spaces. This doesn't use a lot of 
memory, but prints nicely: 

10 

REM* PROGRAM 

*BY A. PROGRAMMER* 
20 PRINT'THIS IS THE NEXT LINE." 
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Been searching for an 
easy way to get into 
machine language? 

SIMPLE SIMON, pub- 
lished in the March 1979 
issue of PROG/80, comes 
to your rescue. Features 
included are: 

•Program entry 
•Hex and decimal 
constants 

•Memory scan/display 
•Disassembler 



by Rev. George Blank 



Find out what's going on in your 
Level II ROM, examine and 
modify the DCB's, create 
machine language subroutines, 
and more! written in BASIC so 
it's easy to understand and 
customize. 

A lot of computer power 
for just $4.95 
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TRf-60 Seftuiofc CKcK<in9« 

17 Briar Cliff Drive Milford, NH 03055 



Rush me the next 12 



PO Box 68 
Milford, NH 03055 

your BASIC software magazine" 

issues of SoftSide. 
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Z80 

Instruction 

Handbook 




Z80 Instruction Handbook 

Scelbi Publications 
Convenient pocket size manual describes 
Z80 capabilites in easy to understand 
terminology Designed as a practical 
reference to mnemonics, machine codings 
and usage — for programmers of every 
level, from beginner to professional . 
anyone working in Z80 machine or 
assembler language Price, $4.95 



SARGON 

ACIMFUIIR 
CHESS PROGRAM 

OMIANOKfiHESPRMXLEN 

mm-ms West Coast Q)«velvfanf\ 



fi fi 



a 



The BASIC Handbook 

Dr. David A. Lien 
Definitive reference work 
explaining over 50 versions 
of the language in detail. All 
you need to know about the 
major statements, functions, 
operators, and commands 
pertaining to use in micro, 
mini and mainframe com- 
puters. Price, $14.95 



Sargon: A Computer Chess 
Program 

Dan & Kathe Spracklen 
Documentation covering all 
algorithms in Sargon can be 
found in this comprehensive 
guide book. Contains table of 
contents, block diagram, 4 
part introduction, Z80 listing 
and index to subroutines. 
Price, $14.95 



1j|E TRI-0O MluMM CiiclKMigc 



23 



Rabbits ^ 
and Foxes 



by Russell Starkey 





As spring planting time approaches, here's a 
program to warm the hearts of gardeners 
everywhere: a simulation of how the proper 
ecological system could protect gardens from those 
pesky rabbits. 

Now, if only garden supply stores could sell 
foxes! 



Russell Starkey has given us a fine demonstration of vAuX a BASIC 


program should look like when you LIST it, and his bar graph 




routine Is very attractive as well. 1 


IB REH 


IDEA FROM tP 25 CflLCULATOft IirCNMITKM 


EDITED BV 


RUSSai STflRKEV 


REV B 


855EISEMOER 




JASPER IN 47546 


12 REH- 


- DADDTTC • c n V c e 




14 REH 




15 REH 


A= ENCOUNTER FACTOR «<.81 >» 


16 REH 


B= H «C STEP SIZE »> 


17 REH 


C = NUffiER OF FOOCS 


18 REH 


D= NUICER OF RAB8ITS 


19 REH 


E = NUHBER OF ENCOUNTERS 


26 REH 


R = INTEGER PART OF C 


22 REH 


S = INTEGER PART OF D 


24 REH 


T = PRINT CONTROL 
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25 REM Jl = ST i OF RflBBITS 

J2 = ST # OF FOXES 

J3 = MflX i OF RflBBITS 

J4 = MflX # OF FOXES 

J5 = HIN # OF RflBBITS 

J6 = HIN # OF FWES 
26REH Jfl = START POINT 

JD = DELTA # OF XX 

JL = LIMIT ( 4* mX INPUT ) 

JP = X OF BflR 

JX = USED 

JC = # OF BfiRS CONTROL 
32 aEffl?50:CLS:DEFINT XX,R,S: PRINT 

35PRINT"THE RfiBBITS VS THE FOXES" 
36 PRINT"fl SIMPLE ECOLOGICflL MODEL OF INTERflCTING FtlPULflTIONS" 
38 PRINT"COHSISTS OF RflBBITS WITH AN UFINITE FOOD SUPPLV AND " 
40 PRINTTOXES THAT PREY ON THEM. " 
42 PRINT 

44 PRIHT"<R'flBBITS> D = D + B * (2*D-A * D * C > " 
46 PRINT"< FOXES > C = C + B * < fl * D * C - C )" 
48 PRINT"HHERE : D IS CURRENT » OF RflBBITS, C FOR # OF FOXES " 
52 PRINT" B IS STEP SIZE , fl IS THE ENCOHTER FACTOR" 

54 PRINT" B = . 02 A = . 01 " 

72 PRINT: PRINT: PRINT 
75 INPUT"PRESS ENTER TO CONT. ";S$ 
108 CLS : T=0 

105 PRINT: PRINT: PRINT : A=. 01 : B= 02 

110 Itff>UT"INPUT MIflBER OF Rf^BITS < 25 - 408 ) ";D:Ji=D:J5=D 
128 INPUT"IWJT NUMBER OF FOXES ( 25 - 480 ) ";C:J2=C:J6=C 
: IF JDJ2 THEN JL=J1*3 ELSE JL=J2*3 

130 ir-PUT'-ENTER 0.1,2 FOR # OF BARS < 1 ) ";JC:IF JCOO AND 
JC Oi AND JC02 THEN 138 ELSE IF JC=1 THEN JC=63 ELSE IF JC =2 
THEN JC=127:JL=1. 1*JL 

135 CLS:PRINTei28, "STARTING # OF RflBBITS "; Jl; ;PRINT@256, "STARTI 
NG#OFFO>£S ";J2.: 

140 REM MATH START ALSO COME BACK POINT. . . 
150 E = A * D * C 
160 C = C + B * ( E - C ) 
180 D = D + B*<2*D-E) 
190 REM PRINT CONTROL SECTION 
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260 R =INT(C) : S =INT(D) 

218 T = T + i 

226 IF T = 5 THEK T=0 : GOTO 686 

250 GOTO 140 

600 i^M PRINT COME TOINT 

640 IFJ2CS THEN J2=S 

645 IFJ4<R THEN J4=R 

650 IFJ5>S THEN J5=S 

655 IFJ6>R THEN J6=R 

1010 PRINT§390, "NUMBER OF 

PRlNT@436,"l1flX";J2 J- 'i 

1015 Jft=15808:JD=S:GOSl®7000 

1020 PRINT0582, "NUMBER OF FOXES 

PRINT§628,"MflX";J4;" "; 

1025 Jfl=16000:JD=R:6OSUB7000 

1040 IFR =1GRS = 1 THEN 5000 

1050 GOTO- 140 

5000 GOTO5000 

7000 REM BfiR PRINT SUB 

7050 IF JC=0 THEN RETURN 

7100 IF JD>JL THEN FOR X=Jft TO Jfl+JC : 

E JP=CSNG<JC*JI>/JL)+Jft 

7140 FOR X=Jft TO JP-1:PQKE )i.i4J:HEXl: 

47: NEXT: RETURN 



RflBBITS "i Si : PRINT0426, "MIN"; J5i 



"iR;:PRINT§6i8,"MIN«iJ6;: 



POKE X>143:NEXT:RETURN ELS 



FOR X=JP TO Jfl+JC: POKE X, 
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Owners of the TRS-80 computer game STARTREK Mi, 
version 3.3, written by Lance Micklus, should be aware of an 
error in the program. 

The problem occurs in the quadrant display of the ships 
computer. To correct the error and update the program, make 
the following changes: 

1. Change line 15 In the program to read "Version 3.3A", 
and change the copyright date to February 1979. 

2. In line 1655:,7^tiange it to read as follows fixing A(263) and 
A(264). -^^^ 

1655 PRINT" ", "Stars:"; A(264), "Planets :";A(265) 

The use of lower case characters in making the above 
corrections is optional, but users should be aware that upper 
and lower case letters are used in all PRINT statements in the 
program. 

The author wishes to thank Mr. Victor C.Solomon, of 
Rochester, New York, for calling attention to the error. 



$im w! 



by Rev. George Blank 

"Man the torpedoes. ..enemy 
ships approaching... fire!*' Sorry, 
captain, the tubes are being 
reloaded. 

And so it goes, in this action ^ 
simulation of battleship warfareT^ 
Shrewd maneuvers and keen 
timing are required by the, 
ship's captain, otherwise 
who always goes down wit 
the ship? Level II, ' ' ^i 
4K-$4.95 '"^' ^ 



/ith^ 



v 
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byM.KeHeftar 



If youVe into Amateur Radio* whethar tteklimg your 
neighbor on QRF or rocking Gibralter.wlth a 
"California Kilowat", thispowarfaf leyetUIBK 
program can put a Jot more tun into your hobby 
— and that's what it's ail about, isn't It? ^ 

H ere are a few of the features: 



•Amateur Frequency Allocaticms 

Frequency, Mode, and Ueensing reQufre* ^ 
ments for 80, 40, 20, 15, tO, 6and 2 
meter bands 

•ID Timer 

Counts down to next station I D and issues 
prompt using manual reset or automatic 
timer functions 

•Q Signal File 

Complete Q Signal file at your fingertips 

•Propagation Forecasting 
Computes radio wave propagation con- 
ditions when given current Solar Flux 
Index and current K-index 

•Amateur Log Routine 
Stores to tape log of station activity by 
Cafllsign, Date, RST, Mode, QTH and 
other information, and permits review of 
previously recorded Log tapes 






V- SPFCIAL DISK-ENHANCED j? 



Available for Level II, 16K - $9.95 : 1 



SPECIAL DISK-ENHANCED 
VERSION -$19.95 



^ ^f^ M '¥ H ^ mMm ^ m* ¥. 



T|S 



FIT 

TRf-60 Sef luKif e Cxchonoe 

17 Briar Cliff Drive Milford, New Hampshire 03055 

f LU l_ 
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PRING 



by David A. Eide 



Springtime is the season for 
love, growth and flowers ... 
the favorite time of year to 
poets, romantics and gar- 
deners everywhere. 

t^ Welcome the warm 
weather with this delight- 
ful graphic display of a four-petal 
rose (without any April showers) . 



.^'V-^ 



1000 CLS 

1010 PRINTC* 64, 

1020 FOR 1=0 TO 


"GRAPHIC 
6, 28119 


DISPLRV OF H 
STEP 1. 745i;3E- 


FOUR 
-02 


LEAF 


ROSE" 


1030 R=25*SIN<2*I> 












1049 x=-;R*coS'a:. 

1050 v=>:r*sin(i: 


>+64 
'>+4? 












1860 SET <K..47-' 
1078 f€XT I 


.V/2>> 












1080 PRINTC- 896, 


"PROQRRM term: 


INATED"; 








1090 END 
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35ft5F(3e^ Presents: 

A Page from The BASIC Handbook by David A. Lien 



mm 



Function 



The INKEY$ function is used in the TRS-80 Level II 
BASIC to read a character from the keyboard each time 
INKEY$ is executed. Unlike the INPUT statement, 
INKEY$ does not halt execution waiting for the ENTER 
key to be pressed. The computer just keeps "circling" 
until it receives a message from the keyboard. Until a key 
on the keyboard is pressed, INKEY$ simply reads an 
"empty" string (ASCII code of 0). 

Since INKEY$ doesn't wait for you to enter a character 
from the keyboard and "ENTER", it usually is placed in 
a program loop to repeatedly scan the keyboard looking for a pressed key. 
For example: / 

10 IF INKEY$='X' GOTO 100 

20 GOTO 10 

100 PRINT 'YOU HIT 'X' DIDN'T YOU!" 

The INKEY$ function repeatedly looks for the letter X at the keyboard to meet the 
condition of the IF-THEN statement. When the letter X is entered, the condition of the 
IF-THEN statement is met and the computer branches to line 100. 

TEST PROGRAM 

10 REM INKEYS' TEST PROGRAM 

20 CUS 

30 PRINT "PRESS ANY KEY ON THE KEYBOARD " 

40 A$=INKEY$ 

50 IF A$= ""GOTO 40 

60 PRINT "YOU HAVE JUST PRESSED THE ";A$;" KEY" 

70 PRINT: PRINT "PRESS THE ";A$;" KEY AGAIN TO START OVER " 

80 IF INKEY$=A$ GOTO 20 

90 GOTO 80 

99 END 

SAMPLE RVN (using R) 



PRESS ANY KEY ON THE KEYBOARD 
YOU HAVE JUST PRESSED THE R KEY 

PRESS THE R KEY AGAIN TO START OVER 

VARIATIONS IN USAGE 

None known. 



HUNGRY FOR MORE? 

See page 23, this issue 



ALSO SEE 

INPUT, IF-THEN 



Copyright ©1978 Compusoft, Inc. 

Reprinted by Special Permission 
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Each player (or Bwana) is in 
charge of a safari camp and must 
organize filming parties including 
camera crews and bearers, to 
search the vast 169-region safari 
country for wild animals. Scoring 
is accomplished when you suc- 
cessfully film in a region con- 
taining an animal. The player 
with the most film contract points 
at the end of the game gets the 
big movie contract and along with 
that, the usual fame and fortune. 
When only one person plays the 
object of the game is to score as 
many points as possible. 

To begin play, you indicate 
the difficulty level you want 
(beginner, average or expert). 
This determines the number of 
disasters and hardships you will 



camp. In yours, you have four 
scouts, six cameramen, twenty 
bearers, three cameras and five 
thousand pounds of supplies. 
When you're at base camp, you 
must prepare a safari party to 
venture through safari country by 
selecting men and material to 
take along with you. 

First, enter the number of 
scouts you'll need. Each of the 
four scouts can 'look ahead" only 
in his specific direction (North, 
South, East, or West). For 
example, if the North scout is in 
your safari party, he will report to 
you whether or not there's an 
animal in the region located 
directly to your North. You may 
use none, some or all of the scouts 
for your party. 



SAFARI 



by David J. Bohike 



encounter in safari country (30 to 
45 % of the regions). After 
the names of the players have 
been entered, a map of the entire 
country will be displayed to give 
you an indication of the number of 
animals in all the regions. Even 
though the locations of the base 
camps are displayed, you won't 
know which one is yours unless 
you are playing alone. 

Base Camp 

At the start of the game, 
each player is located in his base 



Next, enter the number of 
cameras you want to take. For 
each camera, you get three reels 
of film (you can shoot one picture 
for each reel). Each camera 
requires two cameramen to op- 
erate it. These men will be 
included in your party. 

Finally, you must enter the 
number of bearers you will need. 
Each bearer must carry one 
hundred pounds of supplies, so 
the more bearers you take, the 
further you can venture from your 
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TRS-80 n «>wt* » in' 
H^HOTLINE 

If you ever find your- 
self in need of some fast 
answers, an easy solu- 
tion or just a sym- 
pathetic ear, call 
SoftSide's TRS-80 
HOTLINE.FromZto 
9:30, every Tuesday 
evening ^EST), our 
resident programmers will be 
• 'on line* * to offer BASIC pro- 
gramming assistance to Level 
I arid N TRS-80 users in need 
of a fix. 




HOTLIME 



603-673-5144 



TRS-80 
Programming Hint 

If your programs fail to run due to 
syntax errors, even though they 
come from reliable sources such as 
SoftSide, perhaps the puzzle can be 
solved by being careful not to hit the 
SHIFT key out of habit at the start of 
a line. With this type of syntax 
problem, the video display appears 
normal, but apparently, the letter 
goes onto the screen normally but 
the CPU doesn't get the message. 
Retyping the line containing the 
syntax error (taking care not to hit 
the SHIFT key) cures the problem. 



base camp. But, the larger your 
party, the sooner your supplies 
will be depleted. When you run 
out of supplies, your bearers and 
cameramen will begin to starve. 

On Safari 

After you've organized your 
safari party, you're ready to begin 
exploration. During each bwana's 
turn at play, he need enter only 
the direction of movement for that 
day. One day's journey will move 
your safari party one region 
(North, South, East or West) from 
your present location. 

Before you move, check your 
scout's report. This is the map in 
the upper left of the video screen. 
A path consisting of six blocks 
indicates that there's an animal in 
that adjacent region. A path of 
four blocks means the scout has 
nothing to report; and a path of 
three blocks indicates that you 
don't have a scout in your party 
for that specific direction. A solid 
path indicates a base camp is 
directly ahead (not necessarily 
yours), and no path means no 
passage. Unfortunately, scouts 
are unable to report any possible 
dangers ahead. 

The scoring takes place when 
you journey into a region that 
contains a wild animal. At that 
time, the video screen will display 
a camera lens and the animal. 
You must position the lens so the 
animal is inside the viewfinder, 
then shoot the film. To move the 
camera lens, press the arrow on 
the keyboard which corresponds to 
the direction you want to go. In 
order to expose the film, press 
ENTER. 

If you are the first to film in a 
given region, you will receive an 
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initial eighty contract points; the 
next bwana to film there will get 
fifty points, and the third to film 
in that same region earns thirty 
points. All others will be too late 
to get any points. These initial 
points are decreased according to 
the time it takes to position the 
camera and film the animal. 
However, since movie producers 
place higher values on remote 
locations, the contract value is 
increased by ten points for each 
day's journey it takes to reach the 
filming location. 

In the safari country, you will 
a^so encounter many dangers and 
hardships. It's even possible to 
lose your entire safari party while 
exploring for animals. Should you 
become lost (or your scouts 
disoriented) you may send one of 
your scouts to search for the base 
camp, and he will return with a 



BWKTflEZMfS ami: 

nEMK ni HOI sinti . 



map. To order a scout to look for 
your base camp, press L for lost 
when asked for direction. The 
scouts may also bring you a map 
without your request if they feel 
you are, indeed, lost in safari 
country. The map will show your 
location S with respect to your 
base camp. Maps are extremely 
hard to come by — to get one, 
your scout will forfeit his life! You 
must decide between starving 
your bearers and wandering 
about lost, or finding a passage to 
base camp by sacrificing a scout. 

During each player's turn to 
move, a base camp or safari party 
survey will be displayed in the 
upper right corner of the video 
screen. This will show you the 
number of scouts in your party, 
the number of cameramen and 
cameras, the bearers you have 
taken along, the pounds of 
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supplies remaining, and the 
number of contract points you 
have earned to date. Although the 
number of days (turns at play) is 
also displayed, it has no sig- 
nificance in game play. An 
updated end-of-the-day survey 
will be shown after each player's 
move. When you press ENTER to 
continue, the next bwana's turn 
will begin. 



Strategy 

It's always important to 
remember the location of your 
base camp with respect to your 
present location, as well as the 
numbe of films remaining in your 
safari party's cameras. When you 
return to base camp, you will be 
able to resupply and prepare for 
another filming expedition. Each 
camera you take from base will 
have three rolls of film. You may 
also wish to use different scouts 
when you explore in another 
direction. 



In the early stages of the 
game, it would be wise to take 
just one or two cameras, one or 
two scouts, and six to twelve 
bearers. These can economically 
be used to search the regions 
adjacent to your base camp for 
wild animals. The best time to use 
all your scouts and cameras is 
towards the end of the game 
when your supplies are low; or, 
maybe earlier, if you find safe 
passage to an area where several 
animals are located. When you're 
out of film, it's best to return to 
base camp as soon as possible, so 
your supplies won't be wasted. 



One possibility is to shoot 
your film in a given region, leave 
the location, and immediately 
return to film again (for fifty or 
thirty points). However, while 
you're wasting time and supplies 
in one region, the other players 
may be exploring distant areas 
containing several animals. Since 
the point value is increased by ten 
for each day's journey from base 
camp, a filming region several 
days distance away has signi- 
ficantly higher point potential. It 
might be better to keep on 
searching after you get the eighty 
or more points, then on your way 
back to camp travel through that 
region again. These strategies 
will vary depending on whether 
your base camp is adjacent to 
regions containing several an- 
imals, or whether you have to 
search for several days before you 
find and film them. 



Your turn ends when you 
don't have the minimum amount 
of supplies needed to equip a new 
safari party: two cameramen, one 
camera, three bearers, and two 
hundred pounds of supplies at 
base camp. Also, if your last 
camera is destroyed while on 
safari, your turn at play will end. 



Since the winner is the player 
with the most contract points, it's 
possible you could be eliminated 
from the game before the others 
and still end up as the winner. 
The game ends and final scores 
are displayed when every player 
has either lost all his cameras or 
has insufficient supplies to begin 
another safari . 
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InVeiltOry 11 by BIZ-SO complete small business inventory 
on disk — see our ad on pages 52 and 53. 

Dog Star Adventure by Lance MicRIus You're trapped 
aboard an enemy battlestar, can you rescue the princess, find the 
gold and plans, and escape? Level II, 16K $9.95 

fLailllKaZe by Russell Starkey Command your ship against 
attacking suicide planes. Machine language graphics make this fast 
and fun! Level II, 16K$7.95 

AeXt"Oll by Frank Rowlett A fully documented text system for 
disk. Create, edit, move, delete, insert, change, print words or lines. 

32K, 1 Disk minimum $59.95 

IVlftil List II by BIZ-80 Complete mail list system for 32K, Dual 
Disk. Enter, update, merge, sort, and print mailing labels. 

Disk $99.95 

RPN CmCUlatOr by Russell starkey A self-documenting 
calculator program. Uses "Reverse Polish Notation" — with 4 level 
stack, 100 memories, scientific functions. Level II, 16K$9.95 
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1 REM * INITlHLiZE FlflVERS * 

2 RmDCil1;CLEfiR1800 
4 CLS:PRINTCHR*(23) 

10 DEFINTfl-Z:DIMfi(12,12) 

15 PRINT-S H F ft R r':PRIHT 

22 PRiNT"=ENTER= # OF PLflVERS (1-6)"; iINPUTPL 

24 IFPLOflE6t.PL) CiR Ft>6 RUN 

25 PFJIC:PRINT"=ENTER= DIFFICULTV LEVEL . . . ";PRINT"1 = BEGINNE 
R"':PRINT"2 = flVERfi6E":PRINT"i = EXPERT ":IMPUTDL:IFDL<10RDL>iRUN 

ELSE.,GLS:PRINTC;HR$(23> 
26:;PRINT:PRINT"=ENTER= NfitCS OF PLflVERS": PRINT 

28 F0RI=1T6pL;PRINT"BlTSS #".1;" "; ; INPUT P$<I);NEKT 

29 ^ REM * m? * 

30 CLS:PRIHTCHR$<23) 

40 PRINTi?896. "S fi F H R I « fl P" 

42 PRINT@.%a »B -- BASE fl = flNIMflLS"; 

49 REM * DETERMINE LOCATION OF BASE CWIPS * 

m Fa:B=lTOPL 

52 R=RND<10)+l:C-RN[K10)+l:IFfi(R,.C)Oe83OTO52 

53 IFA(R+1.. C)<>0ORfl(R-L C)<>0ORfl(R, C+l)O0ORfl(R, C-1)<>0GOTO52 

54 fl<R..C)=B+100:PRINTC*R*fc.4+C:*4, ^'B"; ;R(:B)=R:C(B)=C:L<B)=100+B 

55 Rl<B)=R:Cl(B)=C 

56 !€XT 

59 REM * [DETERMINE LCCfiTION OF ANIMALS * 

60 FOR R=0TO12:FOR i>8T012 
65 IFflCR, C)O0GOTO85 

70 IFRN[)(5)=1 AND C<6THENA<R. C)=l 
75'lFRND(5)=l fW C>5THENA(R. C)=l 
80 IF A<R,C)=1PRINT<»64*R+C.*4,"fl"i 

82 IFA<R,C.)=0PRINT@R*64+C=»4, "+».; 

83 IFA(R.C)O0THEHfl=fl+l:PRINT@1012.ft 
85 NEXT C 

90 tCXT R 

99 REM * C€TERMir€ ANIMAL TYPES * 

100 A=0;FORR=0TO12:FiM:=0TO12; IFA(R.. C:)OlG0T0125 
110 A=A+l:IFA=10Tf£NA=l 

•120 A(R.C)=10*A 
125 NEXT.rOT 

130 F0Rfl=lT09:READfl$<A):NEXT 

132 I)ATA°LION".. "CHARGING TI(ER", "BLLL ELEPHANT". "BABOON".. "RHIW" 
/'FLEETING IMFffl-fl".- "LEOPARD", "GIRAFFE", "MLIPDV HIPPO" 

4? 



125 DL=C)L*2 

140 Fa?I=lTOi+DL ; 6CaiBi90 : fl<R, C>=1 : WEXT 

145 FORI=lTO5+[)l:GOSlM90;fi<R. C)=3:aiSUB19e:fl(R. C)=6.NEXT 

150 F0RI=lT06+[ii : GOSI.IB190 : fl(R, C)=2 : GOSLSlSe ; fl(R.. C)=7 : fEAl 

155 F0RI=1T012+DL ;G0SIJB198 : fl<R. C>=4 : GOSLei90 ; fi(R. C)=5 : NEXT 

160 F0RZ=1T0PL:«<Z; 1)=6:B(2, 1)=20:P<Z.. 1)=2:«(2. 1)=5000 

162 F0RD=iT04:[HZ.. D)=1.NEXT;D(Z, 0>=6 

165 ^£XT 

179 REM * SET IP GRAPHIC STRINGS * 

180 GOSJJB7000 

185 PRir-IT(?960.eHR*(20)i :Gi3T0195 

190 R=RN[K13)-1: C=RN[K13)-1 : IFflCR, C)<::>0IjOTO190ELSERETL1RN 

195 PRINT(?960, "PRESS =EHTER= TO BEGIN"; :INPLrrC$ 

199 REM * DISFtflV EVENTS OF [)ftV * 

200 FOR Z = 1 TO PL:aS:IFE<Z»0GOTO299 
205 TD(Z)=TD<Z)+l:PRINT§576/'DfiVS"i T[KZ); 
207 IFW(Z, 0)<100THENM(Z)=X(2)+1 ELSE X(2)=€ 
210 PRINT8640, "BWfilHfi ".; P$(Z)i " 'S SflFflRI ; "; 

220 IFftCR<2>,C<Z»=L<Z)GOSUB950:L=l:PRINTiM75.. "BRSE CflMP"; 

230 IFfl<R(Z)..C(Z))OL(Z)THEN L=0:PRIHT§675, "SfiFflRI CflMP".: : PRINTS 

269.. "S".; 

225 GOSIJB940 

240 IFri<Z,8>+ri<Z..l)<2 OR P(:L0HP(Z.l)<lPRINTC-896/'VOiJ HAVE NO C 

fltCRRS (OR CfiHERflflEN) TO TFIKI PICTURES. ". :PRINTC*960. "'iW CAN NO 

LONGER PLRV. "i :FORI=lTO5000:NEXT;E(2)=l:GOTOi99 

245 PRINT8606. "SUPPLIES "i UQ, U) " CfiMERftS ".; P(Z.. L); 

250 IFfl(R(Z)..C<2»=L<Z)PRINTi?269.. "8".^ :XX=0;6OSUB8S0 

255 IFE<Z»06OTO:<99 

260 GOSUB700 

270 GOSLe580 

399 F0RI=1T0F1 : IFE< I X1GOTO410 

408 ND^T:GOTO9800 

410 NEXT Z 

420 GOTO200 

449 REM * CONVERT HRIROHS TO NUMBERS * 

458 IF flSC(C$)=91 THOi D=i;G0T0455 

451 IF flSC:(CI>=18 THEN C$=CHR$(92> ; [)=3 : KITO 455 

452 IF flSC(C$)=8 THEN C$=CHRI<93);D=4:G0T0 455 

453 IF flSi;(C$>=9 THEN CI=CHR$<94):[)=2:G0T0 455 

454 IF C$="S"THEN D=5 ELSE IF C$="L" T^£N D=6 

455 mmi 
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499 REH * INPUT DIRECTIONS * 

'm PRINTC'925," "; 

585 D=0:PRINT(?925. "WHICH WAV? ".; 

510 C$=INKEV$ : IFC$=" "THEf-51@ELSEGOSLIB450: PRINTC.$i 

515 IFD<1ORD>6GOTO500 

516 IFX(Z»7TJ£Nffi=9 : mSUBJ^m : GOTO650 

520 IFD=5PRINT(?832.CHR$(:31)i :GOTO650 

521 IFD=6GOSUB1880:GOTO€.50 :REI1 * LOST * 
525 R=R(2>;C=C(2):GOSLe790 

530 IFR<e OR R>12 OR C<0 OR 012 THEr«=R(2);C=C«:Z):GOTO500 

548 R(Z)=R;C<Z)=C 

558 IFR(R, C)=8PRIHT@784. C^R*<3i); :D=RHD(9) :GOSUB2500:PRINT@784, D 

*;:GOTO650 

555 PRINT§648,CHR$<21)j "' 

560 IFfl(R.C)=L<Z)PRINTe64fc"\mi flfiDE IT TO WM BRSE CffllP '"; :G0 



565 IFfi<R.. C»99PRINT@704, "VOU'RE AT fl BRSE CflflP.. BUT IT iShTOT V 
OURS '."i :PRINTe768, "SUPPLIES ARE GUflRDED, SO Daj'T GET RNS' FUNNY 

IDERS. "; :GOTO600 
570 IF fl(R.C)<9 OR fl(R,C):>99 GOTO600 

572 IFPT(Z)aPRINT@704, "THERE'S R "^R$<fl(R..C)/10); "!".; :PRINT(?768 
; "TOO BRD VOU HflVE NO FILM LEFT. "; :GOTO600 
574 IFM(L 0)<2PRINTI??04. "THERE^S fi ";R$(R<R.C)/18); "!"; :PRINTe76 
8.. "TOO BFO YOU'RE SHORT ON CfltCRRMEN !".: ;G0T06« 
577 K=R(R, C)-INT<fl<R, C)/10)*10 

581 IFX>2PRINT@768, "TOO BRD YOU'RE TOO LRTE TO GET ANY CONTRflCJ 
POINTS. "J :PRINTe704,CHR$(30)j ;PRINT§704, "THEI^'S A "i R$(R(R, C)/l 
8);" !";:GOTO650 
590 GOSUB7150;CLS 

600 IF A(R.C)Ci OR fl(R.C)>7 GOTO 650 
602 ON fl(R. C) GOTO604, 618.. 615. 628.. 625.. 63a 635 
604 IFt1i;L0)<2 RND B(Z.8)<:2 G0T0658 

em PF:INTe704, "disaster i ! ! MOST OF YOUR PARTY CRPTURED BY HERD 
HUNTERS. ".; :PRINT§768. "YOU'LL HAVE A TOUGH TIME SURVIVING. "; 

607 F0RD=1T04 : IFD<L D)=0THEN[KZ.. D>=2 

608 f€XT : M(2. 0)=0 : B<Z. 0)=0 : P(Z. 0)=0 ; W<Z.. 0)=0 

609 GOTO650 

618 F0RD=1T04; IFDCZ.. D>=06OTOei2 

:il NEKT:PRINTC-704, "A WEARY DAY. "i :GOTO650 

612 D=RND<9) : GOSUB690 ; FuRD=lT04 : IFD<Z.. D)=0THEND<Z, D.)=2: G0T0614 

613 HEXT:GOT065e 
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614 PRIHTe?68.. "SCWT LOST "; Mi : GOTMSe 

615 IFM(2, 6X16010658 

616 H(Z, 0>=I1(2.. 0)-l : [)=RND(4>+5 ; GOSUB690; PT<Z)=PT(Z)-3: IFPKZXei 
HErfl^T(Z)=0 

617 PRINTi?68, "CflMERfl CREHMflN fM> FILM LOST ";D*i ;G0T065e 
628 1FB<Z.8K2GOTO650 

621 B(Z,0)=B<Z.0)-l;D=RH[J(9):aTSLe690 

622 PRINT§?68, "BEARER LOST ".iD*i :G0TC65e 

625 D=RHD<4)+5 : mim% : IFMCZ, 0)a8GOTO650 

626 LS=50+RND(100) : H<Z. 0)=H<Z, 8>-LS : IF«<L 0)<8TI€NH(2, 0)=0 
628 PRINTe?6&LSj " POUNDS OF SUPPLIES LOST ".:D*i :GOTO650 
638 IFP<L 8)<iaiT06K 

631 P<Z,8)=P(L8)-1.D=RND(4)+5:G0SUB698;PT<2)=PT(Z>-3;IFPT<2)<8T 
HENPT(Z)=0 

632 PRINT§768, "CflCRfl DESTROVED "iD|j :K)TO650 

635 PRINT&784, "WUR SCOUTS RRE COMPLETELV DISORIENTATED. . . "i 

636 PRINT(?768, "VOU PROBflBLV WON'T FIND VOUR Wffr' BfCK TO BASE. "; 

637 G0SUB198:R(Z)=R:C<2)=C 

650 PRINT8832, "END (F DAV SURVEV . . . "i 

652 DS=8 : F(«D=1T04 : IFD<Z. D)=8THEM)S=DS+1 

653 NEXT 

655 H(Le>=H(L8)-10-6*l1(Le)-10*DS-3*e<L0> 

660 FORI=29TO605STEP64:PRINT@LSTRING$(34," "); :NEXT 

662 IFM<Z,8)<0THEI«(Z,8)=0 

665 IFA(R,C>=L(Z)GOTO680 

667 IFH(Z,8)<18®»ffi»B(Z.0)>lT^€NB(Z,8)=B<L0>-l:PRIHT§862,"O^E BE 
AfER STARVED. ".: :GOTO670 

668 IFWCL 8><108ANDB<2, 8)<2AHDM(L 8»0THENI1(L 0)=M<Z, 8)-l iPRINTg 
862.. "LUC i:»flERffl1AN STARVED. "; 

670 L=0.GOSUB940:PRINT8606, "SUPPLIES "; W<L 8)^ " ".= 

672 PRINT"CAr€RftS ".iP(LL)i ;PRINT88%. "C.(»ffRfK:T POINTS "^T<Z); 

675 PRINT8960, "PRESS =ENTER= TO CWTINUE ".; : INFUTDI- 

676 RETURN 

688 PRINT88S2', "BASE Sl«VEV . . . "; :GOSUB950 
682 L=1:GOSUB940:X(Z>=0 

684 PRINT@606.."SUPFtIES "iW(Z,l).:" ".: 

685 G0T0672 

689 REM * DISfSTEK * 

690 ON D GOTO 691, 692.. 693, 694, 695, 696, 697, 698, 699 

691 D$=" IN lUICKSfW. ": RETURN 

692 D»="TQ MILC? ANIMALS. °: RETURN 
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692 D$="BV SNfiKE BITE. " MllMi 

694 D$="BV EXHflUSTION. ":RETURfJ 

695 D$="TO FEVER.": RETURN 

696 D$="IN STAMPEDE. ": RETURN 

697 D$="IN BRUSH FIRE. ": RETURN 

698 D$=''IN FLfiSH FLOOD. ": RETURN 

699 D*="TO WfiRING NATIVES. ".RETURN 



:REM * DIRECTIONS * 



786 PRINT§704,CHR$<31); 

702 PR1NT@832, CHR*(91); "=fClRTH "i CHRK94); "=EflST".: :PRINTg896, C 

HR$(92)i "=SOUTH "; CHR$(92); "=ICST»j 

782 PRINTe960, "S=STflV L=LOST"i 

705 PRINT§790, "S C U T REPORT (SEE MAP)"; 

707 FORD=1TO4:R=R(2):C=C(2):GOSUB790 

710 IFD(LD)O0 THEN Q=4:a]6iJB960:GOTO730 

715 IFR<0 OR R>12 OR C<0 OR D12 (jOTO720 

720 IFft(R,C)>9flNDfl(R,C)<99THEN Q=2:6OSUB960 

725 IFA<R,C)>100 THEN Q=1:GOSUB960 

727 IFA(R,C><9 TfCN Q=3:GOSUB960 

730 NEXT 

750 RETURN 

7^ ON D GOTO 791,793,795,797 

791 R=R-1:D$="1 NORTH - ": RETURN 

793 C=C+1:D$="2 EAST - ":RETURN 

795 R=R+1:D$="3 SOUTH - ":RETURN 

797 C=C-1:D$="4 HEST - "; RETORTS 

7^ REM * SELECT EQUIPMENT. FOR SAF«I * 

800 IFH(2,l)<2ORB(Z,l)<4a?P(Z,l)<iORt-J(Z,i)<2£i0PRINT§896, "VOU DO 

mi HfWE ENOUGH MINIMW. EiSUIPMENT TO GO ON SfiFmi. "i :FORI=1TO500 

0: NEXT .•E<Z)=1: RETURN 

804 PRINT@704, "PREPf«E FOR NEH SAFARI . . ."i 

805 PRINT@832, "SCOUTS: 1=N0RTH 2=EAST 3=S0UTH 4=WEST 5=N0 f1 
ORE"; 

810PRINTe896,CHR$(31); 

811 PRINT^96, "IWICH SCOUTS WILL VOJ TAKE ? "; 

812 Fa?D=lT04:IFD(Z,l»O2G0T0815 

813 NEXT :PRINT@960, "VOU HAVE m SCOUTS AVAILABLE !"i :FORI=1TO100 
0:NEXT:X=5:GOTO822 

815 C$=INKEV$:IFC4=""THEN&15ELSEPRINTCI; 

820 X=VAL(C$):IFX<1ORX>5GOTO810 

822 IFX=5PRINT8768,CHR$(31); :GOTO830 
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823 IFD<Z,J{)=2PRINT§960/"HE IS NO LONGER IH VOLR PflRTV !"i .FORI^ 
1101008: NEXT :G0T0818 

824 IFD<Z,X>=0PRINTe960, "VOU fiLREflDV PICKED HIM I "; ;FORI=lT(Jd0e 
S;NEKT;GOT0818 

K5 D(Z,X)=0;6OTO810 

838 PRINT@832, "fffiW mm CmS^ DO YOU WISH TO T«(E CW THIS STfl 

RI ? "; 

835 C$=INKPi'$ : IFC$=""THEN835ELSEPRINTC*.; 

840 X=VRL(C*);IFX>P(Z,1)0R X*2>H<2/l)PRINTe960,"VOU W3 NOT mi 

THE NECESSflRV ECSilPMENT OR MEN. "; :FORI=lTO1000:NE:<r:PRINTe768,CH 

R$(3i>j :6OTCi830 

845 pa. i>=H2, 1)-J<:P<L 0>=X:M(2, 1)=M<Z. 1>-2*X:M<2, 8>=2*X 

846 PTCZ)=3*K 

850 PRINTi768,CHR$Gi)i :PRIHTi832, "HOW HflMV BEflRERS DO VOU WISH 

TO TAKE ON THIS Sff'fKI 7"; 

852 PRINT8896. "VOU MILL HflVE 188 LBS OF S4JPFtIES PER BEARER. "; 

855 PRINTg968,"REH. PRESS THO DIGITS (06=SIK> "; 

860 C*=MEV$:IFC$=""Tf£N868ELSEPRINTC$J :X=VflL(CI) 

^2 CI=INKEV$:IF«=""TffiN862aSEPRINTC$i :V=V«.CC*) 

864 IF18*K+V>B<Z.l)PRINT896e."V0U DO NOT HflVE THAT Mf*ft' MEN !"; : 
FORI=lTOi808: NEXT : 6OTO850 

865 TF10*X+V<3PRINT§966/"VOU MUST TAKE AT LEAST 3 BEARERS. ".: :FOR 
I=1TO1008:HEXT:GOTO850 

866 B<Z. 1)=B(2, l)-ie*X-V;B<L 0>=10*X+V 

870 IF100*B(Z, 8)>W(Z, 1)THENW<2. 0)=H(Z. 1) : W(2, 1.>=0:GOTijS99 

875 W<Z. i)=W(Z, 1)-108*B(L 8) ; UQ, 0)=10e*B(Z, 8) 

899 PRINTg784,C:HR*<31); ; RETURN 

^0 SET(X, V) : SET(X+2, V> : SET(X+1, V-l> : SET(X.. V-2) : SET(X+L V-2) 

962 SET(X+2.. V-2) : SET(X+L V-3) : RETLKN 

909 REM * DRAW MEMBERS OF PARTV * 

910 G0SUB988 : SET(X-1. V-2) : SET(X-2, V-3) ; SET<X+3, V-2) 

911 SET<X+4,V-3) 

912 SETCX.. V-4) ; SET(X+1, V-4) : SETCX+2, V-4) ; RETURN 

920 GOSUB910 :SET<X-1. V+1) : SET(X+i, V+1) : SET(K+1. V-5) :RETURN 
930 Gi3SUB928:^T(X. V-5) :SET<X+2/ V-5): RETURN 

940 >^=62:V=5:GOSUB930 

941 X=91:F0R D=1T04:IFD<2.D)=L GOSUB920:X=X+10 

942 NEXT : IFM(Z, L X1G0T0944 

943 X=62:V=i3:FORI=lTCM<Z.L);GOSUB910:X=X+10:l€XT 

944 X=62 : V=19 : FrDRI=lT(K<Z, L) : 00518988 : X=X+6 

945 IFI=10THENV=25:X=62 
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946 NEXT 
948 RETURN 

950 F0RD=1T04 : IFD(Z, D)02THEND(2, D)=l 

951 NEXT 

952 M<Z, 1)=H(Z 1)+H<Z, 8) :B<2, 1)=8(Z. 1)+B(2, 8) 
955 P(Z, 1)=P<Z. 1)+P(2. 0) :H(2, i)=W(L i)+W(Z, 0> 

954 t1(Z.0)=e:B(Z.0)=0:P(Z.0)=0:W<Z,0>=0:PT(Z)=0 

955 RETURN 

960 PRINT@0, "PflTHS'j 
965 I=D:DV=(-1)[<RND(2)) 
970 ON I GOTO 975.986,985,998 

975 IFR(Z)=0RETlflai 

976 X=26:FORV=11TO0STEPH3: SET(X, V) :SET<X+L V) 
978 X=X+2*0V*(RND<2)-1):NEXT:RETURN 

988 IFC(2>=i2RETURN 

981- V=0 : FORX=30TO52STEP2*Q : SET<X, V) : SET<X+1, V) 

983 V=V+D'iM'(RND(2)-l) : rCXT : m\m 

985 IFR<Z)=12RETLIRN 

986 X=26:F0RY=i5T026STEPQ:SET<X,V):SET<X+LY) 
988 X=X+2*DV*<ra©<2>-l):fEXT:RETUlW 

990 IFC<2)=0RETURN 

991 V=0 : FORX=22TO0STEP-2*e : SET<X, V) : SET<X+L V) 
993 V=V+DV*(RND<2>-1) :NEXT:RETURN 

2999 REM * NflP TO BflSE CflHP * 

3000 FORD=1T04 : IFDCZ, D)=0THEND(Z, D)=2 : f»=" SCOUT " : 6OTO3045 
3002 IFD<L D)=1THEND(L D)=2:fl*=" SCOUT FROM BftSE " :GOTO3045 
3005 NEXT 

3010 IFM<Z,0»0THEI«1(L0)=M<L0)-l:fl$=" CflMEIWMflN ":6OTO3045 

3020 IFM(Z,1»0THENM(L1)=M<Z,1)-I:fl$=" CflMERflHflN FROM BflSE ":60 

TO3045 

3030 aS:PRINT0896,"FRO« fl HIGH PEflL Vai'VE MflDE THIS MflP TO VO 

UR BflS CflMP. *; :GOTO30?0 

3045 CLS:IFXX=9TJ€NXX=0:PRINT§832,''VOU ACT flS IF VOU fKE LOST, S 

0. . . "i 

3060 PRINT0896,"YOUR";fl$j'*GflVE HIS LIFE TO GET THIS MflP !"; 

3070 X(Z)=0:Fa?H=0TOi2:FOIW=0TO12 

3080 PRINT0M*64+N*4, "+"; 

3090 IFfl(M,N)=L<Z)PRINTeM*64+N*4, "B"; 

3100 IFM=R<Z>flNDN=C<Z)PRINTai*64+N*4, "S"i 

3110 NEXT: NEXT 

3120 PRINTe960, "PfESS =€NTER= TO CONTINUE "i :IW>UTfl$:CLS 
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3159 D=fc: RETURN 

2500 ON D GOTO 3581, 3582. 3583. 3584 3505, 3566, 3587, 3508, 3583 

imi m="m excitement todrv. ••: return 

3582 D$="fl i4EflRV DfiV. "; RETURN 

3503 D$="N0 flC:TICiNTO[W. ": RETURN 

3504 D*="BETTER LUCK TOMORROW, ";RETU(»J 

3585 DI="l1flVBE VOUIL FIND SffilETHINQ TOflORRi*. ":RETURN 

3506 D$="IS IT REALLY Wa?TH IT ?":RETUR-N 

356? D$="NO LUCK ftGflIN, ": RETURN 

3588 D*="THOSE SCffJTS ARE LOUSV. ": RETURN 

3509 m='l WONDER Hi3H THE OTHERS ARE DOING. ":P£TLKN 

4999 REM * INSTRUCTICiNS * 

6593 REM * AT^MflL PICTURES * 

7080 S$=CHR$<26)+STRING$<6.24) 

7028 ANI(l)=CHR$(185)+CHR$<140)+C.HRI(14e)+M?l<i40)+CH?$(140)+CH 

R$(182)+S$+CHR$(143)+Cm$<146)+CI«$(188>+CHR$<188)+CHR|--(161)+CHR 

$(143) 

7025fl^»<2)=C:HR$<163)+CHR$(140)+CHR$<156)+C«R*<172?+L^^RI(140)+CJ^ 

R$(147)+Sf+CHR$(128)+CHR*(165)+CHR$<182)+CHR$(185)+eH?»(154):AH$ 

<7)=RN$(2) 

7830 AN$(3)=" "+CHR$(i84)+CHR*(188)+CHR$(i44)+S$+STRIN6$<4, 191 

)+CHR*<12'9)+CHR$(134)+S$+CHR*<143)+" "+CHR$<i43) :flM*<7)=f»ll<2) 

7040 Pmi4)=" "+CHR$(160)+af:l(i74)+CH?*(157)+CFfl?l(144)+" »+S$+" 

"+CHR$(160>+CHR$<134)+CJ«$(137)+CW?*<144) 
7050 flN$(5>=CHR$(171>+Cf«*(159)+CHR*(143)+CHR$<i75)+CHR$(i59)+C^ 
R$<142) 

7055 flN*<9)=LEFT$(fiN$(5>, 4)+CHR*<151>+CHR$(i43) 
7068 m$(6)=" "+CHR$<160)+CH?$(140>+" "+S$+CHR$(162)+CHR*(135) 
+CHR$(1S1)+CHR*(155) , 

7070 AN$<8)=" "+CHR$(160)+CHR$(135>+S$+CHR$(160)+CM?$(176)+CH 
R$<1?6)+CHR-$(184>+CHR*(129)+'' "+S$+CHR$<129)+C:HR$<i49)+" "+CHR$( 
170) 

7899 REM * CftlERA VIEWFINDER * 

7180 Ll$=CHR*(26)+STRII«j*<23, 24)+CHR$<191)+STRING$(21, 128>+CHR$( 
191) 

7110 F$=STRING$<23, 176)+L1I+L1*+L1$+L1$ 
7120 F1$=L1$+L1I+L1$+CHR$(26)+STRIN6$(23, 24)+STRIN6$<23, 131) 
7130 RETURN 

7149 REM * PICTLIRE TAKING ROUTINE * 
7158 aS:Fl=RND<48);P2=Rr«H7):P=Pl+64*P2 
7158 A1=RND(58) : A2=RND(13> : A=Al+fl2' : PP=8 
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7170 IFX=0THENPP=8e 
7172 IFX=1THENPP=50 
7174 IFX=2THENPP=20 

7176 PP=PP+<ftBS(R(Z:>-Rl<2.) >+flBS(C:<2>-Ci(Z) ) )*10 
7180 fl<R,C)=fl(R,C.)+l:PT(Z)=Pr(2)-l 
7300 PRINT@60, PPj 

7310 PRIHTia "MOVE FRflME : [ =L1F' "i CHR*(92).i "=W "i CHR$(33); "=L 
EFT "i CH?$(94)j "=RI6HT ENTER=SNfiF' PICTURE".; 
7320 C.$=irfl<EV$: IFC$="[ "THENP2=P2-1: IFP2<1THENP2=1 
7330 IFC*=CHR$<10)THENF'2=P2+1: IFP2>7THENP2=7 
7340 IFC$=CHR$(8)THENPl=Pl-2-RND<2) ; IFPl<0THENPl=i 
7350 IFC$=C^«$<9)T^£NPl=Pl+3+RND(2> : IFPl>40THEr*l=40 
7360 IFC$=CHR$(13)GOTO7700 
7370 PRINT064, (M$<31) :P=F1+P2*64 

738^PRINTeP.F$j :PRINT§F'+267,CHR$(140>i :PRINT§P+279.F1$; 
7400^^ fll=fll+<ra«K3)-2>*3 ; IFFIl<:0THENfll=2ELSEIFfli:>50THEmi=50 
7410 fl2=R2+RND(3)-2: IFfl2<2THENfl2=2ELSEIFfl2>13TfCNfe=13 
7420 fi=fll+fe*64:PRINT8fi, flN$(fl(R.. 0/18); 
7450 PP=PP-1:IFPP<16OTO7700 
7478 6OTO7308 

77£i0 IFP>256THEr^PS=64ELSEPS=8:c2 

7710 IFPP<1PRINT0PS, "VOi'RE TOO SLOW WITH THE CflMERfi !":GOTO7810 
7715 Fl=Pl+ll:F2=P2+4 

7728 IFfleS<Pl-fll)<ll m> f«S(P2-ft2)<4PRINTePS, "Vai GOT SOTIE GMD 
PICTURES OF fl «.:R$(fl(R,C)/10):PRINT»THEV ARE WORTH "iPP;" COf^TR 
ACT POINTS. ":GOTO780e 

7730 PRINTiPS, "SORRV, BUT VOU MISSED THE PICTURE . ":GOTO7810 
7^ T(Z)=T<Z.>+PP 

7810 INPUT"PRESS =ENTER= TO CONTINUE ".;B$ 
7820 RETURN 

^99 REM * END OF GAME * 

9000 CLS 

^0 PRINT"r«:i ore HRS CflMERfl E8UIPPENT HEEDED TO SCOE POINTS. " 
9020 PRINT"THEGflME IS OVER ".PRINT 
9030 PRIMT'FINflL STflHDMS :":PRINT 
^40 FORI=lTOPL:PRINTP$<I.>i" ";T(I):NEXT:PRINT 
^50 INPUT"Pf£SS =ENTER= FOR flNOTt€R «WE "ifi$;I^IN 
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JUKE a pnaji 

Take A Part is a new feature in SoftSide. One of the best ways to learn new 
methods is to look at programs that others have written. In this series, 
we'll take one feature of a program in our current issue and explain how it 
works. 

When playing games (like Safari or X-Wing Fighter) that call for moving 
objects around on the screen, it's awkward to remember which particular 
letters mean to go up, down, left or right. One solution to this problem is to 
use the arrows on the keyboard to indicate motion. 

At first glance this seems difficult, for the arrows already have specific 
functions. Without a shift, (and in fast action we don't want to press the 
SHIFT key) the up arrow prints an up arrow, the down arrow gives us a 
line feed, the right arrow functions as a TAB key, and the left arrow is a 
back space. Of the four, only the up arrow gives us a visually recognizable 
symbol in an input statement. We can't print a down arrow, or a right or 
left arrow directly from the keyboard. However, we can print them 
indirectly, using the CHR$ function (See line 702 of Safari) Here are the 
codes, from page C/2 of the Level II Manual: 

CHR$(91) Up Arrow 

CHR$(92) Down Arrow 

CHR$(93) Left Arrow 

CHR$(94) Right Arrow 

The reason we can't use these directly is that the down, left and right 
arrows are dedicated to other ASCII codes in lower case, as follows: 

Down Arrow ASC (10) Linefeed 

Left Arrow ASC (8) Backspace Cursor 

Right Arrow ASC (9) Advance Cursor 

If we use these keys in an INPUT statement, the line feeds and spaces are 
printed. If, instead, we use them with the INKEY$ function, we can 
translate them into printed arrows before vye print them, and even use 
them to set up a variable to control movement on the screen, as is done 
with Line 510 and the subroutine at 450 to 454 in Safari. 

51 



The Programming of the FUTURE is here NOW 

BiZ-80 offers you the first element of its 
revolutionary business software project: 

INVENTORY SYSTEM II 

Proper inventory management is the backbone of a profitable 
business, yet it's very difficult to Iceep current on price Increases, 
shrinlcage, (ow-on-stock Items and praf liable items versus losers, 
without an efficient and prompt method of su rveyi ng your 
inventory levels at any given time. INVENTORY SYSTEM II can 
help you to achieve optimal managennent — It can handle up to 
1,000 items on one mlnl-fbppy <Usk. Each addltkmal disk can 
handle another 1,000 Items. 



hilts 



r 



MENU CHOICES: 



1. Activity Report 

2. Minimum Quantity Report 
3. Inventory List 

4.aass Code List 
S.Vendor Code List 
e.Update or Video Display 
Inventory 



V. 



DATA FIELDS AVAILABLE 
FOR EACH ITEM 

-«OnHand 

— « Sold This Period 

— Date of Last Sal« 
-Costs 

— Selling Prices 

— Description (25 char,) 
-Vendor* 

— Claas« 
—Location* 



AoamaMhenfllve 324Ma> niMMfll Miidasvou MDbv Md durlM 
yoiyflrst-tfmeriw of Ifce system (duwmydae Is sif»|>lted with «B 
BIZ-W systems). Your convinion of <lMe fram e miMMB systMii to 
the mMMiter svstem. remiiar run omoaduras thiwalieiit Ae veer 
*- iipcmy nieTtie» aoa or neieiie nimSf Hoep iraoi or acnvKy raonm 
by month or week by week, check for km-OA*stock items, run 
inventory control reports for manaieiiienL 



disks are recommended. 
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EXAMPLES OF REPORTS AVAILABLE: 
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Price, $150 includes documentation 
VISA and Master Charge orders accepted 



BIZ-80 

The Binliww Sofhnrc People* 



17 Briar Cliff Dr. 
Milford, NH 03055 

603-673-5144 



53 



by Philip Brown 

One of the nicest things about a computer is that it never complains 
about having to figure the same math problems over and over 
again. We find it a nuisance to have to l<eep doing problems with 
different data, as we would in examining the behavior of a series 
circuit over a range of operating voltages. When you enter the 
information for this one, the initial voltage must be tower than the 
final voltage, and you may not have nrrare than one step per volt. 

Within those limitations, this is a lot easier than breadboarding the 
circuit and measuring all the voltage drops and the current while 
increasing a variable voltage power supply. • 

1 REH ************** * * * * 

* SOFTSIDE PRESENTS * 

* SERIES CIRCUITS * 
*^"" BS': PHILLIP BRCWJ * 

* * * * * * * * « * * * * * * * * * 

5 as 

10 PRINT(8459, "THIS PROGRfiM DEMONSTRhTES SERIES CIRCUITS" 

15 FOR M TO 1000:NEKT I 

20 CLS 

25 INPLIT "tWRT IS THE VflLlE CT H€ FIRST RESISTOR" jR 

2? IF R<=0 TI€N25 

30 INPUT "WHfiT IS THE VALUE OF THE SECONL) RESISTOR"; S 

32 IF S<=0 THEN 38 

35 WUT "IJHflT IS THE INITIAL VOLTmE";E 

40 INPUT "WHfiT IS THE FINAL VOLTAGE"; F 

45 INPUT "WHAT IS THE INC:REMENT";Q 

47 LET 2=ABS(Q) 

48 IF Z<1 THEN 45 

49 LET N=(F-E).^Q 

50 IF N<1 THEN 35 
55 CLS 

60 PRINT "THE CIRCUITS ARE" 

65 F-RINT " FROM:"," ", " TO:" 

70 PRINT : PRINT " Rl", " R2", " Rl"," R2" 

75 PRINT " ";R/' "iS" ".:R," «;S 

80 PRINTiaeSl, "PS", " ", " PS" 



54 



85 


PRINTi714,E," "v» "if 


90 


PRINT:PRINT" "," BY INCREMENTS OF "jQ 


95 


M=2 


106 


FOR V=16 TO 26 


105 


SETaY):SET(X+LV) 


110 


btl«+46,V);SET«+47,V) 


115 


SET<X+64.V>:SET<X+65,V) 


120 


SET(X+liaV>:S£T(J{+lli,V) 


125 


NEXT y 


130 


F0RX=2T0 49 


135 


V=16 


140 


IF K=7 THEN V=V+1 


145 


IFX=9 THEN V=V-1 


150 


IF X=ll THEN Y=V+1 


155 


IF X=13 THEN V=V-1 


160 


IF X=15 THEN V=V+1 


165 


IF X=17 THEN V=V-1 


170 


IF X=35 THEN V=V+1 


175 


IF X=37 THEN V=V-1 


180 


IF X=39 THEN V=V+1 


185 


IF X=41 THEN V=V-1 


190 


IF X=43 THEN V=V+1 


195 


IF X=45 THEN V=V-1 


200 


SET<X,V):SET<X+64,V) 


205 


NEXT X 


210 


FOR X=2 TO 18:V=26 


215 


y:l\%V):SET<X+64,V) 


220 


f£XT X 


225 


FOR X=30 TO 49 


230 


SET(X,V):SET(X+64,V) 


225 


NEXTX 


248 


FOR V=24 TO 28:X=19 


245 


IF V=24 THEN 265 


250 


IF V=28 THEN 265 


255 


SET<X+2, V) : SET<X+fc V) : SET<X+10, V> 


260 


SET<X+66, V) :SET(X^0, V) :SET(X+74. V) 


265 


SET<X/V) :SET(X+4, V) :SET(X+8, V) 


270 


SET<X+64, V) : SET(X+68, Y> :SET<X+72. V> 


275 


NEXT V 


288 


QOSUB10e8 


m. 


CLS 
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m 


FORV=0TO47 


385 


SET<32. V) : SET(64, V) : SET<9& V) 


316 


NEXT V 


315 


FOR X=0 TO 127 


320 


SET(X,3) 


325 


NEXT X 


330 


PRINT " TOTAL VOLTflGE"; 


335 


PR1NT§23. "El"; 


340 


PRINT§39, "E2"i 


345 


PRINT§52r"flMPERflGE"j 


350 


X=66 


355 


FOR I=E TO F STEP Q 


360 


X=X+64 


365 


PRINT@X, h 


370 


PRINT@X+16,R/'<R+S)*L 


375 


PRI^fr§X+32,S/<R+S)*Ii 


380 


PRINTeX+48, 1/<R+S>i 


385 


IF X0962 THEN 438 


390 


X=66 


395 


FOR J=l TO 3000:NEXT J 


400 


FOR J=130 TO 962 STEP 64 


405 


PRINTS," "; 


410 


PRINTW+16, " "; 


415 


PRINTiJ+32, " "; 


420 


PRINT§J+48," "; 


425 


NEXT J 


430 


NEXT I 


435 


IF X=66 THEN 488 


440 


X=X+64 


445 


FOR I=X TO 962 STEP 64 


450 


PRINT§X." "i 


455 


PRINTgX+16.. " ".; 


460 


PRINT8X+32, " "i 


465 


PRINTeX+48, " "i 


470 


NEXT I 


475 


FOR 1=1 TO 5000: NEXT I 


480 


CLS 


485 


INPUT"DO VOU MflNT THIS PROGRflM RUN fiGflIN<VES=l)";Z 


490 


IF Z=l THEN 20 


495 


STOP 


1008 PRINTe9ia " ":INPUT"PRESS ENTER TO GO ON"; C$: RETURN | 
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